home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / listing 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.4 KB  |  49 lines
  1. 10 .TAB(1,4,7;IN HYPRA-ASS: .LI 1,4,7
  2. 20 .STOP$C000;IN HYPRA-ASS: .BA $C000
  3. 30 ;*************************************************
  4. 40 ; 16-BITSCHLEIFE ANWENDUNG : BITMAP-LOESCHEN
  5. 50 ;*************************************************
  6. 60 ;
  7. 70 .REMSTART=$2000;IN HYPRA-ASS: .EQ START = $2000
  8. 80 .REMENDE=$3F3F;   -"-        .EQ ENDE  = $3F3F
  9. 90 .[143]WERT=$00;   -"-         .EQ WERT = $00
  10. 100 ;
  11. 110 ;---------- INITIALISIERUNG -----------
  12. 120 ;
  13. 130  FOR#<(START);LSB STARTADRESSE
  14. 140  INPUT##>(START);MSB STARTADRESSE
  15. 150  NEXT$FA;IN VEKTOR $FA/FB SCHREIBEN
  16. 160  GOTO$FB
  17. 170 ;
  18. 180  FOR#<(ENDE);LSB ENDADRESSE+1
  19. 190  INPUT##>(ENDE);MSB ENDADRESSE
  20. 200  NEXT$FC;IN VEKTOR $FC/FD SCHREIBEN
  21. 210  GOTO$FD
  22. 220 ;
  23. 230  FOR#WERT;EINZUSCHREIBENDEN WERT
  24. 240  NEXT$FE;NACH $FE SCHREIBEN
  25. 250 ;
  26. 260  INPUT##$00;INDEX AUF NULL STELLEN
  27. 270 ;
  28. 280 ;---------- JOB AUSFUEHREN -------------
  29. 290 ;
  30. 300 LABEL FOR$FE;WERT LADEN
  31. 310  NEXT($FA),Y;UND EINTRAGEN
  32. 320 ;
  33. 330 ;--------- STEUERTEIL ------------------
  34. 340 ;
  35. 350  RUN$FA;LSB START NUN ALS ZAEHLER ERHOEHEN
  36. 360  USRMARKE;FALLS KEIN UEBERLAUF WEITER
  37. 370  RUN$FB;SONST MSB EBENFALLS ERHOEHEN
  38. 380 MARKE FOR$FA;VERGLEICH DES LSB
  39. 390  INPUT$FC;MIT LSB DER ENDADRESSE (FLAGGEN SETZEN)
  40. 400  FOR$FB;VOM MSB DES ZAEHLERS
  41. 410  WAIT$FD;WIRD DAS MSB DER ENDADRESSE SUBTRAHIERT
  42. 420  INTLABEL;ZURUECK ZUM JOB WENN ZAEHLER < ENDADRESSE
  43. 430 ;
  44. 440 ;-------- AUSGANG ---------------------
  45. 450 ;
  46. 460  OR;SONST PROGRAMMENDE
  47. 470 ;
  48. 480 .TOU,1,4,7;IN HYPRA-ASS: .SY 1,4,7
  49.